function files_ini(id_cp,id_T)
if ~exist('temp','dir')
    mkdir('temp');
end
if ~exist('result','dir')
    mkdir('result');
end
if exist('id_cp','var')&&exist('id_T','var')
    fini_101=fopen('.101.bdf','r');
    f101=fopen('101.bdf','w');
    while feof(fini_101)==0
        entry=fgetl(fini_101);
        if isempty(entry)
            fprintf(f101,'\n');
        elseif length(entry)<7
            fprintf(f101,entry);
            fprintf(f101,'\n');
        elseif entry(1:7)=="SUBCASE"
            fprintf(f101,'SET 100=%d, %d',id_cp,id_T);
            fprintf(f101,'\n');
            fprintf(f101,entry);
            fprintf(f101,'\n');
        else
            fprintf(f101,entry);
            fprintf(f101,'\n');
        end
    end
    fprintf(f101,'\nSPC1           1      35%8d\n',id_cp);
    fprintf(f101,'SPC1           1      13%8d\n',id_T);
    fclose('all');
end

files=dir(fullfile('1*'));
ig=["101.bdf","103.bdf","103.pch","153.bdf","159.bdf","101+.f06","101_post.bdf","153_post.bdf"];
for i=1:length(files)
    if any(ig==files(i).name)
        continue
    end
    if exist(files(i).name,'file')==2
        eval(['!del ',files(i).name]);
    elseif exist(files(i).name,'file')==7
        rmdir(files(i).name,'s');
    end
end
end